VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ErrorClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private vm_Initialized As Boolean

Private vm_pClassName As String
Private vm_pParentHandler As TrappableErrorHandler



Friend Sub init(className As String, ByVal parentHandler As TrappableErrorHandler)
checkAndHandleEmptyString className
checkAndHandleNonInitializedObject parentHandler

vm_pClassName = className
Set vm_pParentHandler = parentHandler

vm_Initialized = True

parentHandler.registerErrorClassByObject Me

End Sub

Public Property Get className() As String
checkClassInitialization
className = vm_pClassName
End Property

Private Sub checkClassInitialization()
checkAndHandleNonInitializationByBoolean vm_Initialized
End Sub



